GridDestroyFloat Subroutine

private subroutine GridDestroyFloat(layer)

deallocate float grid

Arguments

Type IntentOptional Attributes Name
type(grid_real), intent(inout) :: layer

Variables

Type Visibility Attributes Name Initial
integer(kind=short), public :: ios

Source Code

SUBROUTINE GridDestroyFloat &
!
(layer)

IMPLICIT NONE

! Arguments with intent(inout):
TYPE (grid_real), INTENT(INOUT) :: layer

! Local variables:
INTEGER (KIND = short)          :: ios 
!------------end of declaration------------------------------------------------

!deallocate data
IF ( ALLOCATED (layer % mat) ) THEN
  DEALLOCATE ( layer % mat, STAT = ios )
  IF (ios /= 0) THEN
    CALL Catch ('error', 'GridLib',      &
    'memory deallocating grid float ' ,  &
    code = memAllocError                 )
  END IF
END IF

!deallocate coordinate reference system
IF ( ALLOCATED ( layer % grid_mapping % param) ) THEN
  DEALLOCATE ( layer % grid_mapping % param, STAT = ios )
  IF (ios /= 0) THEN
    CALL Catch ('error', 'GridLib',      &
    'memory deallocating grid float ' ,  &
    code = memAllocError                 )
  END IF
END IF

IF ( ALLOCATED ( layer % grid_mapping % description) ) THEN
  DEALLOCATE ( layer % grid_mapping % description, STAT = ios )
  IF (ios /= 0) THEN
    CALL Catch ('error', 'GridLib',      &
    'memory deallocating grid float ' ,  &
    code = memAllocError                 )
  END IF
END IF

END SUBROUTINE GridDestroyFloat